home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 1 / NetNews Offline Volume 1.iso / news / fido / ger / amiprog / 201 < prev    next >
Internet Message Format  |  1996-03-16  |  3KB
  1. Path: fstgal00.tu-graz.ac.at!not-for-mail
  2. From: agi@sbox.tu-graz.ac.at (Thomas Aglassinger)
  3. Newsgroups: fido.ger.amiprog
  4. Subject: Re: Ich mal wieder...:-)
  5. Date: 19 Oct 1995 16:46:14 GMT
  6. Organization: Graz University of Technology, Austria
  7. Message-ID: <465vcm$50i@fstgal00.tu-graz.ac.at>
  8. References: <MSGID_2=3A246=2F2248.4=40FidoNet_469b2443@fidonet.org>
  9. NNTP-Posting-Host: freestyle.tu-graz.ac.at
  10. X-Newsreader: TIN [UNIX 1.3 950824BETA PL0]
  11.  
  12. Athanasios Mazarakis (Athanasios_Mazarakis@p4.f2248.n246.z2.fidonet.org) wrote:
  13. : Aloha Pascal Freaks!
  14. : 
  15. : Da bin ich mal wieder... und natuerlich nicht guten Mutes:-(
  16. : 
  17. : Ich habe mir ja Maxon Pascal 3.0 geggoennt und bin seitdem alles andere als zufrieden:-(
  18. : 
  19. : Aber lassen wir dies mal... was ich suche sind 2 Antworten auf 2 Fragen... there we go:
  20. : 
  21. : program Wortrat;
  22. : uses crt;
  23. : var feld:array[1..5] of string[12];
  24. :     LW,RW:string[12];
  25. :          Buchstabe:char;
  26. :          I,J,Versuche,x:Integer;
  27. : begin
  28. :   clrscr;
  29. :   writeln;
  30. :   writeln('Woerterraten');
  31. :   writeln('Wir sind alles Schweden und Tannenbaeume...');
  32. :   writeln;
  33. :   feld[1]:='BAHNHOF     ';
  34. :   feld[2]:='FERIEN      ';
  35. :   feld[3]:='SCHULE      ';
  36. :   feld[4]:='HAUSAUFGABEN';
  37. :   feld[5]:='ABITUR      ';
  38. :   randomize;
  39. :   x:=random(5)+1;
  40. :   LW:=Feld[x];
  41. :   RW:='            ';
  42. :   Versuche:=1;
  43. :   FOR I:=1 TO 12 DO
  44. :   begin
  45. :          IF (LW[I]>='A') AND (LW[I]<='Z')
  46. :          THEN RW[I]:='.'
  47. :          ELSE RW[I]:=LW[I];
  48. :   end;
  49. :   REPEAT
  50. :   write(Versuche,'. Versuch ',RW,'?');
  51. :   readln(Buchstabe);
  52. :   Versuche:= Versuche+1;
  53. :   FOR J:=1 TO 12 DO
  54. :   begin
  55. :          IF Buchstabe = LW[J]
  56. :          THEN RW[J]:= Buchstabe;
  57. :   end;
  58. :   UNTIL LW = RW;
  59. :   writeln;
  60. :   writeln('richtig!');
  61. :   writeln('das gesuchte Wort war ',RW);
  62. :   writeln('Anzahl der Rateversuche: ',Versuche);
  63. :   waitforkey;
  64. : end.
  65. : 
  66. : Wie unschwer zu erkennen soll nun ein Wort erraten werden durch Eingabe eines Grossbuchstabens.
  67. : 
  68. : Klappt alles wunderbar... bis auf das Wort HAUSAUFGABEN... im "Spiel" 
  69. : zeigt mir des Ding glatt doch nur HAUSAUFGABE an... ohne N! Ja 
  70. : sapperlot, was ist denn da falsch???? Das Programm lief auf einem PC mit 
  71. : TP ohne Probleme... : 
  72.  
  73. ich kenn den maxon-pascal zwar nicht. aber kann es sein, dass
  74. er im gegensatz zum TP die strings zero-terminated wie in C macht?
  75.  
  76. das liesse sich leicht nachpruefen:
  77.  
  78. program zero;
  79. var
  80.   hugo: string[10];
  81. begin
  82.   hugo := 'hugo';
  83.   writeln( hugo );
  84.   hugo[2] := chr(0);
  85.   writeln( hugo );
  86. end.
  87.  
  88. wenn beim zweitenmal zwar ein "h", aber niergens ein "go" kommt,
  89. isses wohl so.
  90.  
  91. oder was sagt er bei
  92.  
  93.   writeln( Length( feld[4] ) );
  94.  
  95. in deinem programm? 11 oder 12?
  96.  
  97. damit waer die sache klar, als das der MP das letzte zeichen im string
  98. immer fuer einen 0 braucht. und das array muesste aus string[13]
  99. aufgebaut sein, um 'HAUSAUFGABEN' zu fassen.
  100.  
  101. natuerlich nur eine wilde vermutung. aber da ich den Maxon C++ kenn, 
  102. trau ich das den leuten von Maxon schon zu. 
  103.  
  104. -- 
  105. Thomas Aglassinger <agi@sbox.tu-graz.ac.at>
  106.